home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ WMP 4.xpl < prev    next >
Text File  |  2001-02-10  |  1KB  |  46 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Program Options\Built in Windows Apps\Windows Media Player"
  5. "UIPATH 2"="Internet\Windows Media Player"
  6. "NAME"="Send User GUID"
  7. "VERSION"="1.01"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Send Windows Media Player GUID"
  10. "DESCRIPTION 1"="For Windows Media Player #7: A Checked Box sends WMP GUID (global unique identifier) to Microsoft & other content providers. For enhanced privacy: Clear [uncheck] the box to disable sending WMP GUID."
  11. "AUTHOR"="Ojatex@aol.com"
  12. "CONTACTURL"="http://members.aol.com/ojatex/"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="Thanks to CptSiskoX for tip & settings."
  15.  
  16. sP="HKCU\Software\Microsoft\MediaPlayer\Preferences\SendUserGUID" 'bnry=01=enablesending;00=disablesending
  17.  
  18.  
  19. Sub Plugin_Initialize 
  20.  s=RegReadValue(sP)
  21. if IsEmpty(s) or s="01" then
  22.        SetUIElement 1,true
  23.  end if
  24.  
  25. End Sub
  26.  
  27. Sub Plugin_CheckData(ElementIndex)
  28. End Sub
  29.  
  30. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  31.  b=GetUIElement(1)
  32.  if b=true then
  33.   Call RegWriteValue(sP,"01",3)
  34.  else
  35.   Call RegWriteValue(sP,"00",3)
  36.  end if
  37.  
  38.  
  39. End Sub
  40.  
  41. Sub Plugin_Terminate 
  42. End Sub
  43.  
  44.  
  45.  
  46.